home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 15 / Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_B.d64 / --->ende!<--- (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147):v=53248:
  2. 12 fori=832to894:readd:pokei,d:next:poke2040,13
  3. 17 poke53249,120:poke53269,1:pokev+21,255:pokev+39,. :ifz>10then 190
  4. 18 forz=0to13:printtab(6)"[199]leich"tab(28)"[203]ommt [147][145]":poke646,int(rnd(0)*15)+0
  5. 19 poke53272,22:nextz
  6. 20 :print"[215]irklich,[215]ahrhaftigund[197]ndgueltig";:
  7. 21 :print"[152]     [196] [193] [211]              [197][160][206][160][196][160][197][160]!":
  8. 25 forx=60to118:print"[156][169][166][158][255][129][255][255][255][223][169][223][169][156][169][223][169][223][169][223][149][223][169][223][169][223][169][169][223][169][223][169][223][129][223][169][223][169][255][255][255][150][169][255][153][166][169]  [157][157]";
  9. 30 y1=120+sqr(130*x-x*x):y2=120-sqr(130*x-x*x)+.249::pokev+39,x
  10. 32 fory=y1toy2stepy1-y2:gosub90:nexty,x
  11. 34 forx=110to30step-5:y1=120-sqr(110*x-x*x):y2=120+sqr(110*x-x*x)/.2
  12. 37 fory=y1toy2stepy1-y2:gosub90:nexty,x
  13. 40 print"[147]          ":print"          ":print"          ":print"          "
  14. 45 goto17
  15. 90 poke53249,int(x):poke53248,int(y):return
  16. 150 data13,116,0,30,222,0,61,178,0,108,4,0,249,16,0,234,154,0
  17. 160 data210,8,0,105,64,128,104,135,128,48,8,0,48,36,0,32,24,0
  18. 170 data16,4,0,8,5,93,8,9,81,16,17,217,32,33,80,121,145,93
  19. 180 data214,248,0,244,244,0,207,100,0
  20. 190 ti$="000002":wait161,1:goto195
  21. 195 print"[147]>   [206][160][213][160][206]   [201][160][211][160][212]   [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200]:[146]   <";
  22. 200 print"   [169][169]   [169][169]  [169]  [169] [169]    [169]  [169]  [169][169]   [169][169]  [169]
  23. 201 [153]"  (NULL)closeclose(NULL)close(NULL)closeclose(NULL)close(NULL)closeclose(NULL)close(NULL)closeclosecloseclose(NULL)close (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)
  24. 202 print"[156]  [169]    [169]    [169]  [169] [169]    [169]  [169] [169]    [169]    [169]
  25. 203 [153]"def   (NULL)(NULL)  (NULL)    (NULL)(NULL)(NULL)(NULL) (NULL)    (NULL)  (NULL)  (NULL)(NULL)   (NULL)(NULL)  (NULL)
  26. 204 print"[158]     [169] [169]    [169]  [169] [169]    [169]  [169]    [169]    [169] [169]
  27. 205 [153]"  (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  28. 206 print"[129]   [169][169]   [169][169]  [169]  [169] [169][169][169][169]  [169][169]   [169][169]   [169][169]  [169]
  29. 207 ti$[178]"000003":[146]161,1:[151]53272,21:  [158]58253
  30.